* Survey Non-parametric ATE Figures * 

********************
***** FIGURE 2 *****
********************

***** Figure 2(a) *****

use INDIA_SURVEY

** Whole Sample **

statsby mean=r(mean) lb=r(lb) ub=r(ub), by(assign) : ci proportions endorseforceq11, exact

twoway rcap lb ub assign, color(black) || scatter mean assign, mcolor(black) msymbol(circle) ytitle("Endorse Force (%)") xtitle("Treatment") xlabel(0 "Control" 1 "RW Populist" 2 "Centrist" 3 "Cooperative")  plotregion(margin(l+12 r+12)) legend(off) ylabel(.5 "50" .6 "60" .7 "70" .8 "80" .9 "90") graphregion(fcolor(white))

graph export "Your_Directory\JCR_Jooetal_replication\Figures\fig2a.pdf"

clear 
***** Figure 2(b) *****

use JAPAN_SURVEY

** Whole Sample **
statsby mean=r(mean) lb=r(lb) ub=r(ub), by(assign) : ci proportions endorseforceq11, exact

twoway rcap lb ub assign, color(black) || scatter mean assign, mcolor(black) msymbol(circle)   ytitle("Endorse Force (%)") xtitle("Treatment") xlabel(0 "Control" 1 "RW Populist" 2 "Centrist" 3 "Cooperative")  plotregion(margin(l+12 r+12)) legend(off) ylabel(.3 "30" .4 "40" .5 "50" .6 "60" .7 "70" .8 "80", angle(horizontal)) graphregion(fcolor(white))

graph export "Your_Directory\JCR_Jooetal_replication\Figures\fig2b.pdf"

clear

********************
***** FIGURE 3 *****
********************

***** Figure 3(a) ******
use INDIA_SURVEY


** RW Partisan **

statsby mean=r(mean) lb=r(lb) ub=r(ub), by(rpartisan assign) : ci proportions endorseforceq11, exact

twoway  (rcap lb ub assign if rpartisan==1, color(black))  (scatter mean assign if rpartisan==1, mcolor(black) bgcolor(white) msymbol(circle)), ytitle("Endorse Force (%)") xtitle("Treatment") xlabel(0 "Control" 1 "RW Populist" 2 "Centrist" 3 "Cooperative") plotregion(margin(l+12 r+12)) legend(off) ylabel(.5 "50" .6 "60" .7 "70" .8 "80" .9 "90")  graphregion(fcolor(white))

graph export "Your_Directory\JCR_Jooetal_replication\Figures\fig3a.pdf"

clear 

***** Figure 3(b) *****
use JAPAN_SURVEY

** R partisan **
statsby mean=r(mean) lb=r(lb) ub=r(ub), by(rpartisan assign) : ci proportions endorseforceq11, exact

twoway  (rcap lb ub assign if rpartisan==1, color(black))  (scatter mean assign if rpartisan==1, mcolor(black) bgcolor(white) msymbol(circle)), ytitle("Endorse Force (%)") xtitle("Treatment") xlabel(0 "Control" 1 "RW Populist" 2 "Centrist" 3 "Cooperative") plotregion(margin(l+12 r+12)) legend(off) ylabel(.3 "30" .4 "40" .5 "50" .6 "60" .7 "70" .8 "80" .9 "90") graphregion(fcolor(white))

graph export "Your_Directory\JCR_Jooetal_replication\Figures\fig3b.pdf"

clear 


********************
**** FIGURE A6 *****
********************
use FP_data

xtlogit pinit pinit_lag c.polity2##i.right2 cinc majpower atopally, vce (cluster ccode)

margins, dydx(right2) at(polity2 = (-10(1)10) pinit_lag=0 cinc=0.01077218 majpower=0 atopally=1)
 marginsplot, yline(0, lc(red)) graphregion(fcolor(white))
 
graph export "Your_Directory\JCR_Jooetal_replication\Figures\figA6.pdf"

clear

